;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
;;;; $Id$

;;; pull in SBCL ASDF registry for convenience
(require 'asdf)
(setf asdf:*central-registry*
      (nconc asdf:*central-registry* 
	     '((merge-pathnames ".sbcl/systems/"
		(user-homedir-pathname)))))

(setf *load-verbose* t)

;;; Always load the dynamic-classpath, etc. from JSS 
(let ((*suppress-compiler-warnings* (not *load-verbose*)))
  (asdf:oos 'asdf:load-op 'jss :verbose *load-verbose*)
  (asdf:oos 'asdf:load-op 'patches :verbose *load-verbose*))
